home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 1517.ZIP / DB4LESS3.ZIP / TIME.FMT < prev    next >
Text File  |  1988-11-30  |  2KB  |  67 lines
  1. ********************************************************************************
  2. *-- Name....: TIME.FMT
  3. *-- Date....: 11-30-88
  4. *-- Version.: dBASE IV, Format 1.0
  5. *-- Notes...: Format files use "" as delimiters!
  6. ********************************************************************************
  7.  
  8. *-- Format file initialization code --------------------------------------------
  9.  
  10. IF SET("TALK")="ON"
  11.    SET TALK OFF
  12.    lc_talk="ON"
  13. ELSE
  14.    lc_talk="OFF"
  15. ENDIF
  16.  
  17. *-- This form was created in COLOR mode
  18. SET DISPLAY TO COLOR
  19.  
  20. lc_status=SET("STATUS")
  21. *-- SET STATUS was ON when you went into the Forms Designer.
  22. IF lc_status = "OFF"
  23.    SET STATUS ON
  24. ENDIF
  25.  
  26.  
  27. *-- @ SAY GETS Processing. -----------------------------------------------------
  28.  
  29. *--  Format Page: 1
  30.  
  31. @ 3,26 SAY "TIME SLIP INFORMATION FORM" 
  32. @ 5,12 TO 12,68 
  33. @ 7,20 SAY "Date" 
  34. @ 7,29 SAY "Hours" 
  35. @ 7,36 SAY "Function" 
  36. @ 7,48 SAY "Emp ID" 
  37. @ 7,57 SAY "Job ID" 
  38. @ 9,17 GET date ;
  39.    RANGE {01/01/89},{12/31/89} 
  40. @ 9,29 GET hours PICTURE "999.99" ;
  41.    RANGE 0,100 ;
  42.    MESSAGE "Enter Number of Hours" 
  43. @ 9,38 GET funcode PICTURE "@M 01-DEF,02-DES,03-CRE,04-USE,05-MOD" ;
  44.    MESSAGE "Use Space Bar to Select Function Code" 
  45. @ 9,49 GET empid PICTURE "@! AA999" ;
  46.    VALID seek(EMPID,"EMP") ;
  47.    ERROR "Employee Id is not in Employee File. Please enter valid Id." ;
  48.    MESSAGE "Enter Employee Number" 
  49. @ 9,58 GET jobid PICTURE "@! AAA99" ;
  50.    VALID seek(JOBID,"JOB") ;
  51.    ERROR "Job Id is not in Job File. Please enter valid Id." ;
  52.    MESSAGE "Enter Job Number" 
  53.  
  54. *-- Format file exit code -----------------------------------------------------
  55.  
  56. *-- SET STATUS was ON when you went into the Forms Designer.
  57. IF lc_status = "OFF"  && Entered form with status off
  58.    SET STATUS OFF     && Turn STATUS "OFF" on the way out
  59. ENDIF
  60.  
  61. IF lc_talk="ON"
  62.    SET TALK ON
  63. ENDIF
  64.  
  65. RELEASE lc_talk,lc_fields,lc_status
  66. *-- EOP: TIME.FMT
  67.